home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / tpstuff2.arc / GRAPH.P < prev    next >
Text File  |  1985-03-01  |  3KB  |  48 lines
  1. const
  2.   North = 0;
  3.   East  = 90;
  4.   South = 180;
  5.   West  = 270;
  6.  
  7. procedure Graphics;                                   external 'GRAPH.BIN';
  8. procedure GraphMode;                                  external Graphics[0];
  9. procedure GraphColorMode;                             external Graphics[3];
  10. procedure HiRes;                                      external Graphics[6];
  11. procedure HiResColor(Color: Integer);                 external Graphics[9];
  12. procedure Palette(N: Integer);                        external Graphics[12];
  13. procedure GraphBackground(Color: Integer);            external Graphics[15];
  14. procedure GraphWindow(X1,Y1,X2,Y2: Integer);          external Graphics[18];
  15. procedure Plot(X,Y,Color: Integer);                   external Graphics[21];
  16. procedure Draw(X1,Y1,X2,Y2,Color: Integer);           external Graphics[24];
  17. procedure ColorTable(C1,C2,C3,C4: Integer);           external Graphics[27];
  18. procedure Arc(X,Y,Angle,Radius,Color: Integer);       external Graphics[30];
  19. procedure Circle(X,Y,Radius,Color: Integer);          external Graphics[33];
  20. procedure GetPic(var Buffer; X1,Y1,X2,Y2: Integer);   external Graphics[36];
  21. procedure PutPic(var Buffer; X,Y: Integer);           external Graphics[39];
  22. function  GetDotColor(X,Y: Integer): Integer;         external Graphics[42];
  23. procedure FillScreen(Color: Integer);                 external Graphics[45];
  24. procedure FillShape(X,Y,FillCol,BorderCol: Integer);  external Graphics[48];
  25. procedure FillPattern(X1,Y1,X2,Y2,Color: Integer);    external Graphics[51];
  26. procedure Pattern(var P);                             external Graphics[54];
  27. procedure Back(Dist: Integer);                        external Graphics[57];
  28. procedure ClearScreen;                                external Graphics[60];
  29. procedure Forwd(Dist: Integer);                       external Graphics[63];
  30. function  Heading: Integer;                           external Graphics[66];
  31. procedure HideTurtle;                                 external Graphics[69];
  32. procedure Home;                                       external Graphics[72];
  33. procedure NoWrap;                                     external Graphics[75];
  34. procedure PenDown;                                    external Graphics[78];
  35. procedure PenUp;                                      external Graphics[81];
  36. procedure SetHeading(Angle: Integer);                 external Graphics[84];
  37. procedure SetPenColor(Color: Integer);                external Graphics[87];
  38. procedure SetPosition(X,Y: Integer);                  external Graphics[90];
  39. procedure ShowTurtle;                                 external Graphics[93];
  40. procedure TurnLeft(Angle: Integer);                   external Graphics[96];
  41. procedure TurnRight(Angle: Integer);                  external Graphics[99];
  42. procedure TurtleDelay(Delay: integer);                external Graphics[102];
  43. procedure TurtleWindow(X,Y,W,H: Integer);             external Graphics[105];
  44. function  TurtleThere: Boolean;                       external Graphics[108];
  45. procedure Wrap;                                       external Graphics[111];
  46. function  Xcor: Integer;                              external Graphics[114];
  47. function  Ycor: Integer;                              external Graphics[117];
  48.